home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 155
/
155.d81
/
b.fun things
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
87 lines
0 rem----fun things title----
1 data002,130,128,010,170,160,042,000
2 data168,008,195,032,040,195,040,171
3 data125,234,168,195,042,040,000,040
4 data168,040,042,168,040,042,040,000
5 data040,040,130,040,168,040,042,138
6 data000,162,010,000,168,040,170,040
7 data032,040,008,008,085,032,001,085
8 data064,005,085,080,021,085,084,255
9 data021,085,080,017,017,016,049,017
10 data048,051,012,192,063,015,192,051
11 data012,192,063,015,192,051,012,193
12 data015,012,197,015,003,213,003,000
13 data026,000,192,026,003,255,213,003
14 data048,197,012,048,193,015,255,192
15 data048,195,192,048,195,000,207,255
16 data000,240,195,000,240,195,000,255
17 data240,195,000,240,195,000,255,252
18 data000,240,204,000,240,204,000,255
19 data252,000,240,204,000,240,204,000
20 data255,240,000,240,192,000,240,192
21 data000,255,192,000,048,192,000,048
22 data192,000,063,192,000,042,128,000
23 data170,168,000,170,170,000,170,170
24 data000,170,170,000,162,168,000,032
25 data010,170,168,008,136,136,012,136
26 data140,003,048,204,003,240,252,003
27 data048,204,003,240,252,131,048,204
28 data163,048,240,171,192,240,088,000
29 data192,088,003,000,171,255,192,163
30 data012,192,131,012,048,003,255,240
31 data003,195,012,000,195,012,000,255
32 data243,000,195,015,000,195,015,255
33 data000,195,015,000,195,015,000,063
34 data255,000,051,015,000,051,015,000
35 data063,255,000,051,015,000,051,015
36 data000,015,255,000,003,015,000,003
37 data015,000,003,255,000,003,012,000
38 data003,012,000,003,252,000,001,084
39 data000,021,085,000,085,085,000,085
40 data085,000,085,085,000,021,069,032
42 poke56,56:clr
44 dv=peek(186):ifdv<8thendv=8
46 sys57812"fun font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
48 poke53370,0
50 fori=12288to12607:reada:pokei,a:next
60 poke53280,1:poke53281,1
65 poke2040,192:poke2041,193:poke2042,194:poke2043,192:poke2044,195:poke2045,196
70 v=53248:pokev+39,8:pokev+40,8:pokev+41,0:pokev+42,8:pokev+43,8:pokev+44,0
75 pokev+28,63:pokev+37,6:pokev+38,5
80 pokev,70:pokev+1,80:pokev+2,70:pokev+3,101:pokev+4,70:pokev+5,122
85 pokev+6,250:pokev+7,80:pokev+8,250:pokev+9,101:pokev+10,250:pokev+11,122
95 pokev+21,63
100 :
101 print"[147]"chr$(142)""tab(12)"loadstar presents
102 [153][163]11)"william o. nelson's
103 printtab(11)"[144] [223] "
104 printtab(11)" [146][223][223] "
106 printtab(11)" [146][223] "
108 printtab(11)" "
110 printtab(11)" [146][223] [146][169] "
112 print" [223] [169] [223][169] [223]"
114 printtab(5)"[182][161] [146][223][223] "
116 printtab(5)"[182][161] [146][223] [146][223] [223]"
118 printtab(5)"[182][161] "
120 printtab(5)"[182][161] [146][223] [146][169] [223] [146][169]"
122 print""tab(9)"[211] - [211] - [211] - [211] - [211] - [211]"
124 zz=0:poke198,0
125 zz=zz+1:geta$:ifa$=""andzz<400then125
200 :
210 poke53280,0:poke53281,0:poke53269,0:print"[147]":poke53272,31
220 print" [198][213][206] [212][200][201][206][199][211] "
230 print"[153] [211]imple action programs for youngsters
235 [153]"or handicapped persons. (NULL)o operate
240 print"use [211][208][193][195][197][194][193][210] or [202][207][217][211][212][201][195][203] in port #2.
250 [153]" (NULL)ome of these have sound so turn up
255 print"the volume on your [212][214] or monitor.
295 [153]" (NULL)ress ascright$(NULL)valpeek(NULL)(NULL)(NULL)(NULL)(NULL) or (NULL)(NULL)atnlenvalpeekatn(NULL) to start.
300 :
305 j=peek(56320):geta$:ifa$=""andj>111then305
310 print"[144][147]"
315 print"new"
320 print"load"chr$(34)"ft.menu"chr$(34)",",dv
325 print"run"
330 print"":poke631,13:poke632,13:poke633,13:poke198,3:end
10000 d=peek(186):n$="b.fun things":open15,d,15,"s0:"+n$:close15:saven$,d:end